www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\day.asp
<% '**************************************************** 'Code for EptimeFFMS 'Vision : v1.0 '**************************************************** %> <html> <head> <title>Date</title> <style type=text/css> <!-- body,td { margin-left:0; margin-top:0; font-size:12px; } a:link {color:#000000;text-decoration: none} a:visited {color:#000000;text-decoration: none} a:active {color:#000000;text-decoration: none} a:hover { color:#ff3333;text-decoration: none} --> </style> <Script Language="JavaScript"> function getDay(v){ window.opener.document.<%=request.querystring("form")%>.<%=request.querystring("field")%>.value=v; window.close(); return false; } </Script> </head> <body bgcolor=#ffffff onBlur="window.focus()"> <% oldDate=request("oldDate") if not isDate(oldDate) then oldDate=date yy=year(cdate(oldDate)) mm=month(cdate(oldDate)) if request("yy")<>"" then yy=request("yy") if request("mm")<>"" then mm=request("mm") if yy="" then yy=year(date) if mm="" then mm=month(date) if mm>12 then mm=1:yy=yy+1 if mm<1 then mm=12:yy=yy-1 dim m(12) m(1)=31 m(3)=31 m(5)=31 m(7)=31 m(8)=31 m(10)=31 m(12)=31 m(2)=28 m(4)=30 m(6)=30 m(9)=30 m(11)=30 if (yy mod 4=0 and yy mod 100<>0) or yy mod 400=0 then m(2)=29 mms=m(mm) week1=(weekday(cdate(yy & "-" & mm & "-1"))-1) %> <table width=250 cellspacing=1 cellpadding=0 bgcolor=#73a3d4 align=center> <tr> <td colspan=7 align=center> <table width=100% height=20 cellspacing=0 cellpadding=0> <tr height=20> <td width=30 align=center> <a href=day.asp?form=<%=request("form")%>&field=<%=request("field")%>&yy=<%=(yy-1)%>&mm=<%=mm%>> <font face=webdings style=color:#000000 title="上一年">7</font> </a> <td width=30 align=center> <a href=day.asp?form=<%=request("form")%>&field=<%=request("field")%>&mm=<%=(mm-1)%>&yy=<%=yy%>> <font face=webdings style=color:#000000 title="上一月">3</font> </a> <td width=130 align=center style="FONT:9pt Verdana,Geneva,sans-serif;color:#CD0101"> <b><%=yy%> 年 <%=mm%> 月</b> <td width=30 align=center> <a href=day.asp?form=<%=request("form")%>&field=<%=request("field")%>&mm=<%=(mm+1)%>&yy=<%=yy%>> <font face=webdings style=color:#000000 title="下一月">4</font> </a> <td width=30 align=center> <a href=day.asp?form=<%=request("form")%>&field=<%=request("field")%>&yy=<%=(yy+1)%>&mm=<%=mm%>> <font face=webdings style=color:#000000 title="下一年">8</font> </a> </table> <tr bgcolor=#ffffff height=20> <td width=35 align=center bgcolor=#C9DBEF style="color:#ff6633;">日 <td width=35 align=center bgcolor=#C9DBEF>一 <td width=35 align=center bgcolor=#C9DBEF>二 <td width=35 align=center bgcolor=#C9DBEF>三 <td width=35 align=center bgcolor=#C9DBEF>四 <td width=35 align=center bgcolor=#C9DBEF>五 <td width=35 align=center bgcolor=#C9DBEF>六 <% if week1<>0 then response.write "<tr>" for i=1 to week1 response.write "<td width=35 height=20 bgcolor=#ffffff> " next end if for i=1 to mms if (i+week1-1) mod 7=0 then response.write "<tr>" response.write "<td width=35 height=20 align=center bgcolor=#ffffff onmousemove=this.bgColor='#ececec' onmouseout=this.bgColor='#ffffff'>" if cdate(yy & "-" & mm & "-" & i)=date() then %> <input type=button value=<%=i%> style="BORDER:#CD0101 1px groove;width:30;height:16;font-size:9pt;background-color:#FFD9D9;color:#CD0101" onclick="javascript:getDay('<%=yy%>-<%=mm%>-<%=i%>');" title="<%=yy%>年<%=mm%>月<%=i%>日(今天)"> <% else %> <input type=button value=<%=i%> style="BORDER:#000000 1px groove;width:30;height:16;font-size:9pt;background-color:#ffffff;color:#000000" onclick="javascript:getDay('<%=yy%>-<%=mm%>-<%=i%>');" title="<%=yy%>年<%=mm%>月<%=i%>日"> <% end if next if (mms+week1) mod 7<>0 then for i=1 to (7-((mms+week1) mod 7)) response.write "<td width=35 height=20 bgcolor=#ffffff> " next end if %> </table> </body> </html>